home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 50.zip / BS1 part 50 / Focus Video.adf / System / InstallPrinter < prev    next >
AmigaDOS Script File  |  1988-08-13  |  893b  |  40 lines
  1. .key ""
  2. .bra {
  3. .ket }
  4. assign from{$$}: "" ;remember where we came from
  5. resident c:copy    add pure ;leave out a disk swap
  6. resident c:dir add pure ;leave out another disk swap
  7. resident c:echo add pure
  8. resident c:setenv add pure
  9. failat 21
  10. lab y
  11. lab yes
  12. echo "*Ec            *E[4mPrinter Install Program*N*N*E[0mPrinters Available:*N"
  13. cd "Extras 1.3:devs/printers"
  14. IF error
  15. skip err
  16. ENDIF
  17. dir
  18. echo "*NWhich printer ? (press RETURN to exit)" noline
  19. setenv >NIL: q{$$} ?
  20. IF $q{$$} EQ ""
  21. skip err
  22. ENDIF
  23. echo >>env:q{$$} " to devs:printers"
  24. echo "Now copying your printer choice to devs:printers."
  25. copy <env:q{$$} >NIL: ?
  26. IF ERROR
  27. echo "Error during copy.  Do you want to try again ? " noline
  28. skip >NIL: back ?
  29. ELSE
  30. echo "Now choose this printer using Preferences."
  31. ENDIF
  32. lab err
  33. endskip
  34. cd from{$$}:
  35. assign from{$$}:
  36. resident copy remove
  37. resident dir remove
  38. resident echo remove
  39. resident setenv remove
  40.